(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=LA (Andrey Lukyanov)       (<link>l_a@hotmail.ru</link>)
Title=Kinoshara
Description=Imports russian movies info with picture from Kinoshara.com
Site=http://kinoshara.com
Language=RU
Version=1.01 (27.03.2005)
Requires=3.5.0
Comments=
License=This program is free software; you can redistribute it and/or modify it under the  terms of the GNU General Public License as published by the Free Software Foundation;  either version 2 of the License, or (at your option) any later version. |
GetInfo=1

[Options]
***************************************************)
program KinoShara;
const
  BaseAddress = 'http://kinoshara.com/';
var
  MovieName: string;

function ParseURL(Text:String):String;
var
  BeginPos : Integer;
  EndPos : Integer;
  Value : String;
begin

  repeat
    BeginPos := Pos('<b>',Text);
    If BeginPos > 0 Then
    Begin
      EndPos := Pos('</b>',Text);
      Value := copy(Text, BeginPos, EndPos - BeginPos);
      Value := StringReplace(Value,'<BR>',', ');
      Value := StringReplace(Value,'<br>',', ');
      HTMLRemoveTags(Value);
      Delete(Text,1,EndPos);
      If Length(result)>0 Then
        result := result + ', ' + Value
      else
        result := Value;
    end;
  until BeginPos < 1;

end;

function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
  i: Integer;
begin
  result := -1;
  if StartAt < 0 then
    StartAt := 0;
  for i := StartAt to List.Count-1 do
    if Pos(AnsiLowerCase(Pattern), AnsiLowerCase(List.GetString(i))) <> 0 then
    begin
      result := i;
      Break;
    end;
end;

procedure AnalyzePage(Address: string);
var
  ID, FilmName, Line: String;
  Page: TStringList;
  FilmPage: TStringList;
  BeginPos, EndPos, LineBeginPos: Integer;
begin
  Page := TStringList.Create;
  Page.Text := GetPage(Address);
  PickTreeClear; // Очистка дерева фильмов
  PickTreeAdd('Поиск по слову: ' + MovieName, '');
  LineBeginPos := 0;
  repeat
    BeginPos := FindLine('    <tr valign=top bgcolor=#EEEEEE>', Page, LineBeginPos+1);
    LineBeginPos := BeginPos;
    if  BeginPos > 0 then
      begin
        // Вывод фильмов в дерево
        Line:= Page.GetString(BeginPos+1); // Получить строку с адресами
        repeat
              BeginPos := Pos('        <td>',Line);
              If BeginPos>0 Then
              // поиск возможных вариантов
              begin
                Delete(Line,1,BeginPos); //Удаление начала
                // получаем адрес
                BeginPos:=Pos('<a href="',Line)+9;
                EndPos := Pos('">',Line);
                ID := copy(Line, BeginPos, EndPos - BeginPos); // Получить адрес страницы

                // вытаскиваем название
                BeginPos := Pos('/">',Line)+3;
                EndPos := Pos('</a>',Line);
                FilmName := Copy(Line, BeginPos, EndPos - BeginPos); // Получить название для выбора
                FilmName := StringReplace(FilmName,'&nbsp;',' ');
                FilmName := StringReplace(FilmName,'<font color=red>','');
                FilmName := StringReplace(FilmName,'</font>','');
                PickTreeAdd(FilmName, ID);
              end;
        until BeginPos < 1;
      end;
  until LineBeginPos < 1;

  If  PickTreeExec(Address) Then
      AnalyzeMoviePage(Address); // Проанализировать страницу с фильмом
end;

procedure AnalyzeMoviePage(Address: String);
var
  Page: TStringList;
  LineNr : Integer;
  Line, Value, TmpStr : String;
  BeginPos, EndPos : Integer;

begin
  Page := TStringList.Create;
  Page.Text := GetPage(Address);
  //Page.SaveToFile('c:\inet\page.txt'); //!Отладка

  // URL
  SetField(fieldURL,Address);

  //Rating

  // Translated Title
  TmpStr := '<td><b>Название:</b>&nbsp;';
  LineNr := FindLine(TmpStr, Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    Line := StringReplace(Line,TmpStr,'');
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    SetField(fieldTranslatedTitle,Value);
  end;

  // Original Title
  TmpStr := '<td><b>Название в оригинале:</b>&nbsp;';
  LineNr := FindLine(TmpStr, Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    Line := StringReplace(Line,TmpStr,'');
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    if Value='' then Value := GetField(fieldTranslatedTitle);
    SetField(fieldOriginalTitle, Value);
  end;

  // Year
  TmpStr := '<td><b>Год выпуска:</b>&nbsp;';
  LineNr := FindLine(TmpStr, Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    Line := StringReplace(Line,TmpStr,'');
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    SetField(fieldYear, Value);
  end;

  //Category
  TmpStr :='<td><b>Жанр:</b>&nbsp;';
  LineNr := FindLine(TmpStr, Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    Line := StringReplace(Line,TmpStr,'');
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    Value := StringReplace(Value,'/',', ');
    SetField(fieldCategory, Value);
  end;

  //Country

  // Director
  TmpStr := '<td><b>Режиссер:</b>&nbsp;';
  LineNr := FindLine(TmpStr, Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    Line := StringReplace(Line,TmpStr,'');
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    SetField(fieldDirector, Value);
  end;

  // Producer

  // Actors
  TmpStr := '<td><b>В ролях:</b>&nbsp;';
  LineNr := FindLine(TmpStr, Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    Line := StringReplace(Line,TmpStr,'');
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    SetField(fieldActors, Value);
  end;

  // Description
  TmpStr := '<td><b>О фильме:</b>&nbsp;';
  LineNr := FindLine(TmpStr, Page, 0); //Начало строки описания
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    Line := StringReplace(Line,TmpStr,'');
    Line := StringReplace(Line, '<br>', #13#10);
    Line := StringReplace(Line, '<BR>', #13#10);
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    SetField(fieldDescription,Value);
  end;

  // Picture
  TmpStr := '    <td valign=top><a href="http://kinoshara.com/uploads/';
  LineNr := FindLine(TmpStr, Page, 0); // Начало строки с рисунком
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := 29;
    EndPos := pos('" ', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    Address := Value;
    GetPicture(Address);
  end;
// DisplayResults;
end;

begin
    MovieName := GetField(fieldOriginalTitle);
    if MovieName = '' then
      MovieName := GetField(fieldTranslatedTitle);
    if Input('Import from Kinoshara', 'Enter the title of the movie:', MovieName) then
      AnalyzePage('http://kinoshara.com/search.php?search='+UrlEncode(MovieName));
end.